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Programa ZX81/Spectrum/Newbrain 


Colnio do TUMOE sais seo E + cas 0045 
Um Teste aos seus Reflexos ..................... 
NERO. as ne ses ras ns ss o Rd 6 
Ciranda CO .iccss cs sss o ocisotne ds m 
o Se OP e PRM 
So PD MR DR A 
FACTO RMS . . sos PR ses Cerco nuas 
Novos Comandos de Execução Gráfica ............ 
ARA TS Om roer 
Proto do CORRE +....... ssa sais soc cs srs; 
DOR RR aaa sas sms vs cansei ess Cara 


CONVERSÃO DE PROGRAMAS DO ZX81 ............ 
NEVES LINDÃS  ..sto ess srs co se01.0.0 
Novos FROCHAMAS cisco. RA 
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Autor: ROCHA BARBOSA/PORTO 
PORTO 


Temos insistido demasiadas vezes na necessidade e na im- 
portância do contributo dos sócios para o enriquecimento e 
expansão do CLUBE Z80. Mantemos como fundamental o 
princípio de que o Clube só pode desenvolver-se e evoluir 
positivamente se todos os seus elementos colaborarem 
nesse sentido. 

Contudo, à excepção de alguns sócios — dos quais Femnan- 
do Preces merece destaque especial — a maioria permanece 
indiferente e inactiva, limitando-se a receber a sua publica- 
ção. Porquê? 

Será que nunca criou ou adaptou um programa? Será que 
nunca descobriu «segredos» na sua máquina? Nunca se 
lembrou de escrever algumas palavras sobre os micros? 
emos a certeza que não faltarão respostas afirmativas. 
ourge a questão: 

Para quê guardar o produto da sua imaginação na gaveta? 
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Autor: FERNANDO PRECES 
PARTE Ill — COMO FUNCIONA O Z80 (Cont.) 


3.5 — 24 Registros para utilização 


— REGISTRO A — Este é o registro mais utilizado no Z80, e 
também o mais importante, pois entra em todas as manipu- 
lações aritméticas ou lógicas, assim como muitas outras 
aplicações de menor especialização. 


— REGISTRO F — Este registro não é utilizado para armaze- 

nar dados ou endereços como os restantes. Individual- 
ses mente, os seus bits são usados como indicadores de 
condições (flags), havendo por isso quem lhe chame Re- 
gistro de marcadores ou Registro de Bandeiras. Quatro 
desses bits (dos 8 que formam o registro) são considerados 
os mais importantes por desenharem funções de apoio a 
certas operações aritméticas ou lógicas, reflectindo as 
condições dos registros intervenientes no final de cada 
resultado. 


Podemos considerar um flag como uma espécie de indicador 
(tal como uma lâmpada) que, quando está ligado (1), indica 
uma coisa e, quando desligado (0), indica outra. 

Muitas instruções do Assembly Z80 tem como base de funcio- 
namento o estado desses marcadores. 

Os 4 principais FLAGS receberam os seguintes nomes: 


e MARCADOR ZERO (zero flag) — Este flag é afectado so- 
mente por duas condições após o resultado da última ope- 
ração (aritmética ou lógica) ser acumulado no registro 
interveniente. 


a) Valor (1) se esse resultado for “0” 
b) Valor (0) se esse resultado for <> “0” 
Tem duas mnemáónicas de referência: 


Z (zero) para flag = 1 (set) 
NZ (nota zero) para flag = O (reset) 


omnes UN o PM e esenrerso rsrs 


Porque não divulgar e dar utilidade a tudo o que é feito por 
si? Porque não, por exemplo, contar as suas experiências e o 
modo como explora o seu micro? 

Há tanta coisa que poderia variar o conteúdo do CLUBE Z80! 
Pense nisso. 

Apostamos na sua criatividade e no seu espírito de associa- 
ção. Envie sempre os seus trabalhos para publicação no 
CLUBE Z80. 


NOTA: Ao enviar programas para publicação, não esqueça de 


mencionar os seus títulos, a(s) Máquina(s) em que funcio- 
nam e uma breve descrição e objectivos. 


ALEXANDRE MAGALHÃES 
J. MAGALHAES 
MARIA IRENE 





(Cont. dos números anteriores) 


Todas as instruções de comparação e as suas condicionadas 
baseiam-se no estado (set ou reset) deste flag. 


e MARCADOR DE SINAL (sign flag) — Este flag é efectado 
por todas as operações efectuadas em 2.º complemento 
aritmético. Como devem estar lembrados, neste tipo de 
sistema aritmético o bit 7 (o último num registro de 8 bits) é 
reservado para indicar a polaridade (negativa ou positiva) 
dum número binário. O sign flag reflecte esta condição para 
o resultado da última operação acumulada no registro 
interveniente. 


a) Valor (1) se o resultado for negativo (—) 
b) Valor (1) se o resultado for positivo (+) 


Tem duas mnemónicas de referência: 


M (minus) para flag = 1 (set) 
P (positive) para flag = O (reset) 


e MARCADOR DE TRANSBORDO (carry flag) — Quando 
um registro atinge um máximo de contagem (para um regis- 
tro de 8 bits, o binário 1111 1111), não pode sem auxílio 
exterior, continuar a acumular resultados porque a partir 
daí, basta que lhe seja adicionado o menor número positivo 
(binário 0000 0001) para que nele se dê um estouro de 
acumulação, voltando ao ponto de partida (binário 0000 
0000), perdendo portanto toda a informação anterior. 
Se ficar confuso com o que acaba de ler, lembre-se como 
se comporta um conta-rotações mecânico ou electrónico, 
que acumula até ao máximo dos seus digitos e depois volta 
a zero, ou experimente este pequeno programa em BASIC 
e poderá compreender melhor o que significa um estouro 
de acumulação: 


10 FOR n=200 TO 300 
20 POKE 16507,n 
20 POKE 23300,n 


(Para o ZX81) 
(Para o Spectrum) 
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30 PRINT AT 12,0; “VALOR ACUMULADO —”: AT 12,20; 


PEEK 16507 (ou 23300) 
40 FOR m=0 TO 20 
50 NEXT m 
60 PRINT AT 12,20;"' (3 espaços) 
70 NEXT n 


Pode verificar, quando rolar o programa, que a célula de 
memória carregada com o valor de n, acumula resultados 
até atingir o número 255, voltando a zero na solicitação 
seguinte, partindo para uma nova contagem e perdendo a 
anterior. 

A missão fundamental deste flag é tomar o valor (1) sempre 
que aconteça um estouro de acumulação após o resultado 
de uma dada operação ser adicionada a um registro. 


Tem 2 mnemónicas de referência: 


C (carry set) para flag = 1 

N (no carry) para flag = O 

Este flag ainda é utilizado em certas instruções de subtrac- 
ção, de rotação e outras. 


MARCADOR DE PARIDADE/DEFEITO DE ACUMULA- 
ÇÃO (Parity/over flow flag) — Este é um flag que serve 
para testar duas ocorrências em cada um dos seus 
estados. 

E usado para testar um defeito de acumulação, quando 
um dado é armazenado num registro em 2.º complemento 
aritmético, vigiando o bit de sinal que pode ser adulterado 
se os restantes bits tiverem um estouro de acumulação. 
Este flag toma o valor (1) sempre que o bit de sinal é 
afectado. 

E usado para testar a paridade no resultado de certas ope- 
rações lógicas, contando o número de uns existentes no 
registro interveniente. 

Flag = 1 (set) — Quando em 2.º complemento aritmético o 
bit de sinal é afectado ou em operações lógicas o resultado 
tiver um número par de uns. 

Flag = 0 (reset) — Quando exista um número ímpar de uns. 
Tem duas mnemónicas de referência: 


PE (party even) para flag = 1 
PO (party odd) para flag = O 


Os restantes flags, dois dos quais têm nomes atribuídos 
(N — add/subtract flag) e (H — half carry flag), são utili- 
zados pela unidade de control e não podem ser manipula- 
dos por qualquer tipo de instrução proveniente do assem- 
bly, pelo que não voltarão a ser referenciados por este 
texto. 


A posição de cada flag, dentro do registo F é a seguinte: 
7 6 5 4 3 2 1 0 


s[2 E" EM MN 


posição dos bits no registro F 


bit O—-C —carry flag 

» 1 —N — add/subtract flag 

» 2 —P/V— Parity/over flow flag 
» o 3—X (sem nome) 

» 4 —H — half-carry flag 

» 5 —X — (sem nome) 

» 6 —Z —zero flag 

» 7—S —sign flag 








— REGISTRO CONTADOR (PAR BC) — o registro B, e por 
extensão o C (com o qual forma par), trabalha com muitas 
instruções do assembly Z80. No entanto a sua função mais 
especializada é como registro contador. 

Em linguagem máquina, a contagem de impulsos para um 
ciclo semelhante ao FOR-NEXT do Basic é efectuada pelo 
registro BC. 

Algumas instruções permitem o trabalho individual, quer da 
célula B, quer da C. 

Este registro tem ainda a seguinte particularidade: 


a) Transporta do Basic o endereço de arranque da rotina 
máquina. 

b) Transporta para o Basic qualquer dado ou endereço, 
quando a rotina máquina terminar com uma instrução 
RET (muito semelhante a RETURN do Basic). 


— REGISTROS DE ENDEREÇOS DE e HL — Além do traba- 
lho que as células D, E, H e L podem executar individual- 
mente, como registros de 8 bits, os pares DE e HL são 
muito utilizados em linguagem máquina, na retenção 
endereços da memória para funções muito diferenciadas 
O registro HL é porém o mais utilizado, porque pode execu- 
tar um certo número de operações aritméticas, como inter- 
veniente principal, acumulando o resultado. 


— REGISTROS DE INDEXAÇÃO IX e IY — Estes dois regis- 
tros são células inteiras de 16 bits, não sendo possível, em 
contraste com os registros BC, DE e HL, a sua separação 
para trabalho individual. 

São muito importantes porque, após a retenção de um de- 
terminado endereço, são capazes de percorrer (mediante a 
variável introduzida) 255 endereços para a frente, memori- 
zar o conteúdo de qualquer deles e continuarem fixados 
sobre o endereço de origem. Esta característica dá-lhes a 
possibilidade de trabalharem sobre uma tabela de dados, 
de caracteres ou qualquer outro bloco de informação espe- 
cializada, a uma enorme velocidade. Um inconveniente se 
pode apontar e que exige do programador uma certa aten- 
ção: necessitam de retornar à ROM (algumas rotinas moni- 
toras assim o determinam) com os endereços que tinham 
memorizados quando de lá sairam. é 

— REGISTRO APONTADOR DA PILHA (stack pointer) — A 

pilha é uma área junto do topo da RAM que serve para 
armazenagem temporária do conteúdo dos registros pares, 
incluindo o par especial AF. O seu primeiro endereço fica 
imediatamente abaixo do apontado pela variável RAMTOP 
e cresce, movimentando-se para trás, descendo os endere- 
ços da RAM. 
Cada vez que o conteúdo dum registro é introduzido no 
Stack, o apontador SP é decrementado 2 vezes: a primeira 
para a entrada do High byte (1.º letra dum registro par) e a 
segunda para a entrada do Low byte (2.º letra do registro). 
E incrementado 2 vezes na acção inversa, ou seja quando 
um registro vai buscar essa informação ao Stack. 


— REGISTROS ALTERNATIVOS AF', BC”, DE' e HL'— 
existe no Z80 um duplicado dos quatro principais registros 
pares. 

As vantagens da sua utilização podem ser espantosas, 
porque as instruções de troca de conteúdos entre os regis- 
tros principais e os registros alternativos são executados 
muito mais rapidamente do que as instruções de armaze- 
nagem de conteúdos no Stack. 

Porém alguns inconvenientes, que serão estudados na de- 
vida altura, forçam o programador a evitar por vezes a sua 
utilização. 
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— REGISTRO | — A execução normal das instruções que 
formam um programa é feita no Z80 de uma forma se- 
quencial (em Basic, partindo da primeira instrução da linha 
n; em código máquina, partindo da instrução contida no 
endereço n). Essa sequência pode ser desviada a determi- 
nado passo, para uma outra (quer em Basic, quer em cm.) 
por qualquer salto endereçado pelo programa, ou ainda por 
um sinal de interrupção que obriga o processador a 
percorrer uma outra combinação sequencial, normalmente 
monitorada na ROM, durante a qual fica aparentemente 
imobilizado, aguardando um sinal de desinibição. 

Na generalidade dos microcomputadores que possuem um 
Z80, quando ocorre uma interrupção, o registro | (de 8 bits) 
será fixado sobre aparte alta do endereço (High Byte) da 


rotina de tratamento de interrupções, enquanto que o ele- .. 


mento causador da interrupção é memorizado com os bits 
da parte baixa desse endereço (Low Byte). 

A reunião desses 16 bits compõem um endereço vector, 
que aponta a correspondente subrotina de interrupção. 


- As ROMS do ZX81 e do Spectrum possuem 2 tipos de 
! subrotinas de interrupção (endereços 0038 e 0066 Hex.), 
mas o Spectrum só utiliza pelos processos usuais a rotina 
(endereço 0038), sendo condicionada a utilização da rotina 
(endereço 0066). 
Estes dois computadores dão uma utilização especial ao 
registro |, como apontador da tabela de caracteres para a 
informação de vídeo. É por essa razão, que se torna possí- 
vel (é necessário copiar para a RAM, algumas rotinas moni- 
toras da ROM) pôr o ZX81 a imprimir no écran caracteres 
definidos pelo utilizador. 


— REGISTRO R — Nas versões anteriores ao ZX81, este 

registro de 8 bits, era usado para restaurar zonas da me- 
mória RAM aonde os sinais binários estivessem com 
tendência à indefinição (nível de voltagem inferior à neces- 
sária para se diferenciar o estado 1 do estado 0). . 
Com o avanço da tecnologia, as memórias vivas deixaram 
de precisar de tais cuidados, tendo o ciclo máquina sido 
encurtado em duração, o que se traduz num aumento signi- 
ficativo da velocidade de processamento. 
Nestes novos sistemas, nos quais estão incluídos o ZX81 e 
o SPECTRUM, o registro R é aproveitado para contar o 
número de caracteres que deverão formar a próxima linha 
horizontal de vídeo. 


3.6 — Unidade de aritmética lógica (ALU) 


Este é o último dos blocos funcionais do Z80. Tal como o seu 
nome indica, esta unidade foi concebida para tratar de opera- 
ções aritméticas ou lógicas, mas com um raio de acção muito 
limitado. 

Pode efectuar operações de adição e subtracção, mas nem 
divide nem multiplica, visto que estas operações implicam uma 
lógica muito mais complexa em binário aritmético. Trata 
também as operações lógicas AND, OR e XOR que sejam 
introduzidas em comando directo, através de um grupo espe- 
cializado de instruções Assembler, bem como operações de 
bits. 


(Continua no próximo número) 





Autor: ROCHA BARBOSA/PORTO 
PORTO 


Este programa faz a leitura dos títulos dos programas grava- 
dos em cassete, dando uma lista dos mesmos. É, portanto, 
ti para os esquecidos. 


Introduza o programa, faça RUN, aguarde que apareça a 
indicação 9/60, por intermédio de EDIT apague as linhas de 
5 a 60 (inclusive) e faça RUN 100. 


O ZX81 aguardará que introduza no gravador a cassete que 
pretende «ler» e, após o começo da reprodução, listará o(s) 
título(s) do(s) programa(s). 


NOTA: Se pretender mudar de cassete, pode fazê-lo sem interrom- 
per o programa e os títulos da nova cassete irão aparecendo 
na lista que o programa lhe faz. 


1 REM 20900000010 ... (96 car 
acteres) 

S FOR 1=16515 TO 1660909 

lô POKE I,PEEK (1-15680) 

15 NEXT 


1 
20 POKE 16514,55 


35 POKE 16536,35 

40 LET Ag='1114FF2A10400106000 
9CD5C407123CB79C01D2DFSCICIAROS 

45 FOR I=l TO 2s 

50 POKE 16549+I,164CODE AS (21 
-1) +«CODE Agia+I) -476 

SS NEXT 1 


60 STOP 
CLEAR 

105 DIM B$ (20) 
FAST 


115 RANDOMIZE USR 16514 
PRINT B 


125 PAUSE 200 
1320 POKE 16437,255 
135 RUN 100 


PROGRAMAS MAIS VENDIDOS 


Sempre que possível, tentaremos, a partir de agora, 
fornecer aos leitores uma lista dos programas mais soli- 
citados ao CLUBE Z80, no mês anterior ao da publica- 
ção da revista. Assim, no mês de Maio, os TOPS foram: 


1 — FIGHTER PILOT 
2 — CHEQUERED FLAG 
3 — JET SET WILLY 
4 — NIGHT GUNNER 
5 — HUNTER KILLER 
6 — SIMULADOR DE VOO (PSION) 
7 — SPACE SHUTTLE 
8 — PINBALL 
“9— ATIC ATACK 
10 — PARATROOPERS 
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Autor: FERNANDO PRECES 


— ASREM “FRJL" REM “FRJ2" 
a PRINT 1» UM TESTE ROS SEUS hd CLS 
REFLEXOS" S PRINT ,,''JOGO DIDATICO" 
3 GO SUB SOU 10 LET Z=ô 
é FOR Nzi TO 500 ao G0 SUB 460 
S NEXT N 30 PRINT “QUEST IONARIO DE MULT 
8 CLS IPLICAÇÃO “o. 
12 LET NuQ 40 GO SUB 460 
20 FOR Mz1 TO 20 50 PRINT “GRAU DE DIFICULDADE 
o Er TO RND+4100+50 da Sour idem ESCOLHE 7" 
2 IN | 
50 LET Be=CHR$ (R8+354RND) 70 IF A<i OR A>10 THEN GO TO 6 
se LET Ego” 12,1588 2,00 GO SUB 460 
a te 
820 FOR B=z0 TO 80 110 PRINT "“O,ANTAS PREGUNTAS 7" 
920 NEXT B . 120 INPUT 
1200 LET Cg&=INKEY 1320 IF B<1 THEN GO TO 120 
110 IF C6nBg THEN GO SUB 200 l40 CLS 
120 CLS 150 FOR G=1 TO 8 
130 NEXT M 160 LET C=AXINT (RND410) +1 » 
1420 PRINT “PONTUACÇADO=";N 170 LET D=A+INT (RND+410) +1 
150 PRINT ,,,. "PRIMA (N/L)" 182 LET EsC+D 
160 INPUT ê 1920 GO SUB 460 
163 PAUSE 4 220 PRINT “PREGUNTA NUMERO "“;G 
165 CLS 210 GO SUB 460 
166 PRUSE 20 220 PRINT “OUANTO E “;C;'" VEZES 
170 GO TO 10 SEE). 
200 LET N=N+1 2580 INPUT F 
210 PRINT AT 14,13; "CERTO" 240 PRINT ,,'!'= “;F 
220 FOR B=0 TO 20 250 GO SUB 460 
230 NEX 260 IF Fa=E THEN GO TO 420 
240 RETURN 270 PRINT “INCORRECTO. A RESPOS 
SO? PRINT ,,,," RO ACASO VAI A TA CERTA E: 16 “HE py” 
PARECER ECRAN UM" 280 GO SUB 460 
SOS PRINT ,,"SIMBOLO, LETRA OU 290 PRINT TAB 4; «<< PONTUAÇÃO 
NUMERO, QUE VO! dE 
510 PRINT ,,"CE TERA DE REPETI 295 PRINT 
R CARREGANDO A” 300 PRINT TAB 5; "RESPOSTAS DADA 
915 PRINT ,.,"TEMPO, NA TECLA RE S ";6 
SPECTIVA.! 301 LET B=B-12 
620 PRINT ,,,,,:" ESPERE A PONT 3oE IF B=Q0 THEN GO TO 390 
URCRO E TENTÉ MÉL" QS PRINT 
TES" PRINT ,,"HORA-LA. BOR SOR Ea “PRIMA iN/L) PARA CON 
330 RETURN 330 INPUT Ag 
340 CLS 
380 NEXT G 
360 FOR K=1 TO 3 “— 
Ses Seçdua 00 
Para si, que se quer iniciar no mundo da informáti- 390 PRINT "ACABOU O QUESTIONARI 
O. O SEU RECORDE E DE: 
ca, ou para um amigo seu, VENDO pela melhor 400 PRINT TAB 8; INT (Z+4100/6);" 
oferta: 4 CENTO" 
410 GO TO 500 
— Sinclair ZX81, memória 16 K, (+de) 30 pro- ca. EE ale cido 
gramas gravados e 12 livros (fotocópias) an PRINT “OK... RESPOSTA CORREC 
com programas (tudo no valor de Esc. A. 
452 GO TO 280 
18 000800). 4620 FOR S=z1 TO 2 
— Impressora Sinclair ZX Printer e mais 4 rolos Jia na 
(tudo no valor de Esc. 11 080800). 490 RETURN TO 260 
— (Gravador novo portátil AC/DC marca DELI- ps 8 oo Mata 
- no valor de Esc. s20 CLS 
lis Ea 330 BRINT AT 12,0; “DUER CONTINU 
em “Ro QnplrS go NO 
— Centenas de revistas de electrónica (para 
ag ='S" THEN RUN 
mais esclarecimentos, pedir lista). 560. PRINT |" OBR FGADO o» BYE... 
— Revista «Selecções de Rádio» desde o nú- o SAQUE “"F2J2" LINHA 1 
mero TO. 


— Revista francesa «Micro Systemes» e outras. TROCO PROGRAMAS P/ ZX SPECTRUM 


Contactar: JOSÉ M. S. GORDA Contactar: JOSÉ M. S. GORDA 
CGD — 5160 MONCORVO CGD — 5160 MONCORVO 
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in. HOME COMPUTING 
Trad. e Adapt.: ANTÓNIO AMARAL/Porto 


: : = = — — — —” . 1, — — . — ..— - 

e ê -— : ” — $ O E os Fe E) - 
ã D+0C: BECP .Di,RND+0D+3. NEXT 

$ t A as mê £ : e . — : em- E 
: EI RASA LET h2380: LE; 


E 
Lud 
H 
feria 


E pá á dá z 
& 4 4 6 4 k & & é & a 
6 LET i=is 
Aa +: ASA 45k 7 FOR f=-32 TO Se. BEEP ,ei,: 
Es | - BEEP .Qi,F+3: BEEP .Bi,F+5: HE 
pd did pa | AA dá é XE É 
| 3 FOR F=2 TO 21. PAPER &: INK 
AA 4) À E dê 7: BORDER Q: RAMDOMIZE USR a2so 
NEXT F 
EE dd 46 3 LET a=B: LET d=B: LET j=8 
LET attr=E0: PAPER &. INK 7º EOR 
Ata dd do a 44 4 & DER é 
ES LET ti=3: LET x=18:0 LET y=i 
BD. LET E=ê 
30 INPUT “NIVEL DE DIFICUi DADE 
15-15) SS = PADIL 6-3 DI 


ud 

E 
a 

H4 

E <q 


E oR U:1S THEM CGU TO S 


GRANDE PREMI á 
Benvindo a prsta.doace,o pricto e ae. o” ;º 
so CREME E CEP Rad dado + SQ PRINT AT 4x; INK 20 
E Ci pe O DO tando E PRINT AT gy+1,x; INK D;U WWF": P 
ias ss o bio 4 dido RINT AT 4+5,x; INK 2; 4 é 
chstacuios como Es E S2 PRINT AT u-i,x;” 


78 PRINT AT Q,IÊ;S;AT BIZ; vtA 
rei TO tii 

30 LET x=x+IMKEYS=0801- LINKEY 
É = à - ue 


sa 
- 


to tg ÃO quente TR 


pes o 
et o E 
te Em 
Um] 

vo 


mt 


EE 
[a 


pt 
di 
pos DD ro 
METRO 


tm dr co 
rm 
“4 


pod qt de 
a tu Er 
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in. YOUR COMPUTER, Março 1983 
Trad. e Adapt.: J. MAGALHÃES 


DESCRIÇÃO 


Este jogo consta, como mostra a fig. 4, de uma construção 
com vários níveis, no último dos quais se encontra JANE que 
foi capturada por um gorila. 
Para salvar JANE, terá de percorrer todos os níveis saltando 
as bolas de fogo e usando o elevador para ir de um nível 
para outro. Quando passa por uma ponte, esta desaparece 
deixando um buraco que tem de evitar saltando, ou perderá 
uma vida. 
As teclas M e N permitem-lhe deslocar para a direita e para a 
esquerda, e a tecla CAPS SHIFT permite-lhe saltar sobre as 
£* bolas de fogo. Só terminará uma fase depois de destruir as FR O FEDORA RAN 
pontes de todos os níveis. 4 
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INTRODUÇÃO DO PROGRAMA 


1. Passe a listagem do programa em BASIC e grave da se- 
guinte forma: 
SAVE «LIFTER» LINE 9999 

2. Passe a rotina da fig. 1; RUN; dê entrada dos 128 bytes 
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NOTA: O programa em código máquina deve ser gravado logo a seguir ao 
programa em BASIC. 
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in. YOUR COMPUTER, Março 1983 
Trad. e Adapt.: J. MAGALHÃES 


É um programa de uma máquina de frutas. Estas rodam, 
accionando a tecla O e o Hold pelas teclas 1, 2 e 3 quando 
lhe é permitido (fixa qualquer rolo). 

Para um maior grau de dificuldade, altere os valores das 
linhas 320 e 1080 (3 e 5). 
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Autor: ANTÓNIO JOÃO G. NUNES 
FUNCHAL 


Este programa, destinado à criação e tratamento de ficheiros, 
altera, lista, imprime, grava o ficheiro ou carrega outro já exis- 
tente; Pesquisa por qualquer palavra. O programa leva ape- 
nas 20 segundo a carregar de cassete. Comprimento máximo 
dum ficheiro: 38500 bytes; dum registo: 275; dum campo: 275. 
Aplicações: agenda telefónica e de endereços, índice bibliote- 
cário, catálogo de colecções, bloco de notas, etc. 


Os passos para a introdução do programa 

são os seguintes: 

1 — Introduza a linha 1: 1 REM 12345678901234 

2 — Com um comando do tipo FOR N — 23760 TO 23773: 
INPUT F: POKE N,F: NEXT N, introduzir os números 
listados na fig. 1. Trata-se da rotina de carregamento dos 
bytes sem label, “disassemblada”na fig. 2. 

3 — Transformar a linha 1 em linha O com o comando POKE 
23756,0 para evitar o seu apagamento acidental. 

4 — Introduzir o programa em BASIC listado na fig. 3. 

5 — Gravá-lo com os comandos CLEAR: SAVE “FICH. 
UNIV3” LINE 20 (Não faça RUN pois ainda falta introduzir 
o código máquina). 

6 — Com um comando do tipo FOR N =65032 TO 65535: 
INPUT F:POKE N, F: NEXT N dar entrada aos valores 
listados na fig. 4 Trata-se do código máquina correspon- 
dente às rotinas “disassembladas” na fig. 5. 

7 — Gravar este bytes sem label logo a seguir ao programa 
em BASIC com o comando SAVE “mc” CODE 65032,504 
só ligando o gravador depois de aparecerem as primeiras 

! riscas azuis e amarelas (a fim de não gravar a label ou 
header). 

8 — Carregar todo o programa com LOAD”” e testá-lo por 
exemplo com nomes e endereços de pessoas amigas, e 
verificar a rapidez com que é efectuada a pesquisa por 
qualquer palavra que conste do ficheiro. 

O autor do programa utiliza-o para ficheiros de endereços 
e ainda para ficheiros de títulos de artigos de revistas de 
electrónica, com óptimos resultados. 

O autor realça que o programa foi escrito com a principal 
preocupação de poupar memória a fim de a deixar dispo- 
nível para o ficheiro, pelo que algumas instruções pode- 
rão parecer menos óbvias, como por exemplo LET 
Z = NOT PI que substitui LET Z = O economizando 5 by- 
tes. Chama ainda a atenção para a instrução POKE 
23658,8 que se destina a activar automaticamente O 
CAPS LOCK. 

Quaisquer sugestões relativas a possíveis melhoramen- 
tos ao programa serão benvindas. (António Nunes — 
Rua do Til, 72 — 9000 FUNCHAL) 
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FIGURA 5 
1 ROTINA CEDITOR” 
E 
lã ORG CTB 
E? ENDCUURISOR Dol = ra 
32 FIMBLOCO Fo! 65026 
4” STOPFIM Eot ssazs 
sa STOPIN Eqoi! 63820 
SE 
Ss? LD HL, (253527) 
Ss LDDE,S4 
so nD0 Hi ,CE 
2 PUSH HE 
6i LD DE, tBS3SB) 
B2 BBD Hi ,CE 
Do 1» iSTÓPEIM) ,HL 
64 LDb DE, (63394) 
BE POP HL 
so ADD Hi .DE 
67 LD ti 5TOPIEN),HL 
80 LD tm, t3TOPFTIM) 
8a LD (ENDCURSOR):,HL 
So  CALi MOVER 
182 LD Hi,isToPFINM) 
1208 LB rt ;ãé 3 
iza CoNTINiA Cali FSCREUES 
132 UaIT Caãii Fzar 
Ja lb EM 
ISO CRLi WSLE 
le2 SR C,UAIT 
17à NOKEv Cali FzsT 
[80 LD CT,B 
152 cCaii GSIir 
282 dE NO,NOKEY 
£aidU DEL Db 
222 LE E,R 
258  Caii EsFs 
235  PilsH ar 
235  Caãii doar 
2537 E st 
2353 Coil Gir 
235 dk NO ,HOKEs 
242 DEC D 
Zái iDr.,a 
DãáD2 Caii 335 
Zãi3 il gR.a 
Zãá POP ar 
2à5 CPE 
2ã&S JR HZ,NOKEY 
247  PiliShH ar 
is iDDE,IR 
sê LD Hi,258 
262  Câãii H5SES 
27à POP ar 
282 CP Ss 
2S2 JR Z,ESGiIFZEDS 
382 CTPS 
S1I2 JR Z,DIREITS a 
322 CPI? 
3552 JR Z,DEi ETSOS 
o te zo 
352 JR I,TERMNINA 
350  PFilsH ar 
S72 CALI MOVER 
54 LD HL,iszTtToPFIM: 
3358 INC HL 
Ba LD iSToPFIM:,FL 
2i2 iDHL, (ENDCURIOR: 
Asa INC HL 
138 LD (ENDCUNÇSOR:, AL 
iiz POP ar 
45% DEC HL 
452 LD i(Hi!.s 
72 dê CONTINUS 
432 FSQUERDA LD HL,.IENDCUEIOS: 
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+38 DEC HL 1328 DEC Hi 

528 LD A, iHL! 135384 LEDR 

Sig CP 225 iFdár RET 

528 JE ade lê ROTINSAS CEESQUIIS = 
Sia LD ti) .243 “"BPSCES” 
Seg LÊ (ENDÉURSOR) .HL dd 

SER INC HL E& ORG BEFFES 

7a LO tiHii.R DR UBRS Egi! 23227 4 
582 FIMEAD JR CONTINUB if STOPFIM EG! GSaFr 
90 DIREITA LD HL,(EMDOURSOR: Ef STOP EFqi! 235 

ESA INC HL BY FIMIÍINHO ZQl FE 
Sl2 LDga,iHi: à STOPINI Eqgi! 5374 
22 CÊ Ses Sa 

ESQ JR Z,FIMBIR Sa LD IX, iUBES: 

Sig LD thHk.),3243 1a LD DE ,1B 

ESQ LD (ENDUURSOR! ,HL lIig BD IX, SE 

ESQ PEC Hi 128 LD Hi, (UBRS) 

ER LD iHii.s 2 LÊ DE Sê 

ES? FIMDIR JP CONTINUA iig BBDO Hi .DE 

ESQ DELETAR LD HiL.iFINBLOCO: isg Lo E; LHES 

788 LO DE, (ENDOLRSOR! 1ER INC HL 

18 DEC DE a LO D, tm 

“28 END a isa EX DE ,til. 

38 SBC à DE isa LE» DE, (STOPF IM E" 
vã? iDlaB, 2a NO & 63 
To” LD E, r 18 E... Má. DE 

"Ea LD HÚ, [ENDCOURSDR! E2ê Lp B;H 

é LD GB, H ER o Gol 

784 LÊ dk if LO Hi, (UBS) 
5a DEL DE Es a BD Hi ,DE 

ga LEITR: sê LD DE,TD 

DID LO TA tfimtacõ, E? ADD HL,DE 

Soo DEC HL 230 RECOMECA LD BR. iIx+08: 
3" LD (iFIMBLOCO!,HL EsSga CPIR 

Sir LO Hi, (STOPFIM 228 JR Z,ENCONTROU 
ESA DEC Hi. SIR RET 

SEQ LD (STOPFIM:,HL Se? ENCONTROU PUSH Ix 
7 LO MA : [ENDCURSOR! 334 PUIH HL 

asa DEC HÚ Sd IGUAIS tão. E 
3a LD (ENDCOUURSOR!: .HL SER LD A, iIx+2: 

agia JP CONT INUS DER CÊ STor 

G1à TERMINA LD HL,.iFIMBLOCO! Sê dk NT, COMNPARG 
24 LD DE, (ENDCOUURIOR! 38 POP Hi 

] 232  aND a 5% POP IX 

Gig SOC Hi ,DE ga LO A.STOP 

SER Lo Bim igs DEU +. 

352 o E lit DECREMENTA DEC Hi 
7a LD H,D iza CP (HLº 

532 LO L,E isa JR NT, DECRENENTOE 
oa INC HL 431 PUSH Hi Se 
Jaga LDIR iso LO Hi. ines: DN 
IBI1R LD HL. (FIMBLOCO! sa LÊ DE ,5d 
Iig28 DEU PL. sd BDD Hi. a 
1238 LD (FIMBLOCO)!,HL E te EX DE,H 
igdig LO DE, (253527) iss POP Hi 
iBsa BND Q 4+s/ BHO & 
IigoR Dot Mk, DE isa SBC HL,DE 
1878 LD DE ,S4 pé RE Rr LD C(CS5TOPINT),Ht 
12532 END a Zi s BDD Hi .DE 
igoa SBC HL,DE is" CIdio INC HL 
liga LD B,W co LD Bo tiHi: 
iilig LO s,Ê pé gd CP STãe 
iizê RET 450 JR z,ACBRS 
iiseê ESCREVER Coaii HDSsB +32 CP FIMiITNHOE 
Iiidár LD HL, (SToPIN Se JR Z.NOUBL INHO 
1152 LOOP INC Hi 518 ESCREVE RaIT BIB 
lijlea LEgaBa,iHi: SER JR CICid 
1178 CÊ 225 532 MOURL INHA LO BB, Is 
1138 RET Z 552 R5T dia 
1158 RST 15 SS LO a, da 
ioga JR LOOP Saga JR ESCREUE 
1212 MOVER LD HL, (FIMBLOCO!I sf ACABA PiisH Hi 
1228 INC HL So R LD Hi, (UARS) 
1238 LO (iFIMBLOCO),HL ava LD DE ,TA 
isá a LD DE, (ENDCURSODER) 534 BD Hi .DE 
1252 BND & 554 EX. DE... 
i2eoR DC Hi, DE Ega POP Hi 
o ti. ; Eu PA Pi BhnND & 
200» LD C.l E3a oC ML, DE 
12588 LD DE, (FIMBLOCO) Dia LD (STOPFIM ,HL 
1302 LE AH, Dis LD E,H 
1318 LD bsE Sis Lo C,b 
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ESB | RET 

BSB COMPARA CP HAL) 

570 JR NZ,DIFERENTE 
580 INC Hi 

690 JR IGUAIS 

700 DIFERENTE Por Hi 
7lê POP Ix 

728 — JR RECOMECA 

750 DELETE LD HL,(UARS! 


+60 LO DE,53 

770 ADD HL,DE 

+80 Lo E; GH 

+98 INC HL 

De LD D, (HL) 

SIQ LO HL. (iSTOPFIM: 
52” Ex DE,HL 

33” AND & 


13 


SER LD DE ,BS 

fed É BD HL,DE 

So LD DE, (CSTOPIN) 
aIg BED Hi .DE 

3528 PUSA Hi 

538 LD Hi, iuaRS: 
Sig LO DE ,5B 

35 BED Hi DE 

SER Lt DE stoTERP T! 
7a BDD Hi .DE 

332 POP DE 

332 LDIG 

IB Lo HM TOP IH 
igia LO DE, iSTOPIN: 
IRD BH”D & 

IBra SBC NL ,DE 
IRdig LO B,hH 





mn. YOUR COMPUTER, Março 84 
Adapt. e Trad.: J. MAGALHÃES 


Para produzir gráficos, o Spectrum possui alguns comandos 
(PLOT, DRAW, CIRCLE) que, no entanto, são muito rudimen- 
tares para uma completa exploração do potencial gráfico de 
alta resolução. 

Outras máquinas possuem comandos tais como Elipses, 
Rectangulos e Triangulos, com a facilidade de preencher 
áreas específicas de diferentes cores. 

Este programa pretende remediar esse problema. 


A INTRODUÇÃO DO CÓDIGO MÁQUINA 


O Código Máquina tem uma extensão de 744 bytes, apresen- 
tados na listagem 1 para o Spectrum 48 K e na listagem 8 para 
o 16k. 
Para dar entrada do código, precisa de um programa “carre- 
gador” como o apresentado na listagem 2 (48 K) e na listagem 
9 (16 K). Basta apenas passar um destes programas (confor- 
'me a máquina), fazer RUN e dar entrada dos bytes um a um. 
* muito importante verificar se os números correspondem 
correctamente aos endereços apresentados. 
Depois de carregados os 744 bytes, se verificar a mensagem 
de “ERRO”, houve qualquer falta na introdução do C.M. Para 
localizar o erro e corrigi-lo, proceda do seguinte modo: 


— Para o Spectrum 48K passe a listagem 3. 
— Para o Spectrum 16 K passe a listagem 10. 
Depois de fazer RUN, será interrogado se está a usar a im- 
pressora. Respondendo afirmativamente (S), sairá na impre- 
ssora o C.M. introduzido anteriormente. Verifique se corres- 
ponde ao da listagem que apresentámos. Para correcção de 
qualquer entrada faça: 

POKE (endereço), (n.º correcto) 

Ex.: POKE 65218, 201 
Corrigidos todos os erros, o programa deverá estar pronto a 
funcionar. 


PARA GRAVAR O CÓDIGO MÁQUINA: 
SAVE “Gráficos” CODE 64624, 744 (Para 48K) 
SAVE “Gráficos” CODE 31856, 744 (Para 16K) 
PARA CARREGAR O CÓDIGO MÁQUINA: 
CLEAR 64623 : LOAD ” ” CODE (Para 48 K) 





CLEAR 31855 : LOAD ” ” CODE (Para 16K) 


OS “NOVOS” COMANDOS: 


Serão usados em linhas REM (REM Statments), que devem 
ser precedidos das instruções: 


RANDOMIZE USR 64624 (Para 48 K) 
RANDOMIZE USR 31856 (Para 16K) 


Portanto, estas instruções deverão encontrar-se na mesma 
linha a seguir ao comando de chamada do código máquina 
(RANDOMIZE USR...) ou no início da linha seguinte, tal 
como apresentámos nos exemplos. 

Os comandos poderão ser dados em minúsculas, maiúsculas 
ou numa combinação de ambas, dado que o Spectrum não 
terá problemas em reconhecer. 

Qualquer erro será interpretado pelo computador como 
“ERROR C”. 


Quando se trabalha com instruções BASIC normais, usam-se 
os parâmetros de cor antes da palavra-chave. Ora isso não vai 
ser possívei com estes novos comandos. Se pretender usar 
cores como INK, PAPER, FLASH, BRIGHT, OVER e INVER- 
SE em “statments” isoladas, deve usar o comando TEMPS no 
início da primeira REM statment. Isso indica ao computador 
que deseja usar determinada cor em todos os comandos su- 
cessivos da linha REM. Por outro lado, se essa cor tiver uma 
função temporária, faça uma linha PRINT a preceder a instru- 
ção RANDOMIZE USR: 


PRINT, INK 3 : PAPER 7 


e MOVE x, y — Tem uma aplicação idêntica ao PLOT 
normal (posição x, y) e é usado especialmente para colorir 
uma determinada área. Os parâmetros x, y podem ser da- 
dos de duas formas: 

— directamente MOVE 128, 88 
— usando variáveis MOVE a, b 


Repare, no entanto, que não pode dar entrada do comando 
MOVE a — 1, b/3. Terá de o substituir por LET x = a — 1: 
LET y = b/3. E então MOVE x, y. 


e LINE x, y ou LINES (x1, y1)  (x2, y2) — Este comando 
pode ser dado sob duas formas: 


— LINE x, y 





te 
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Onde x e y são as coordenadas de um ponto no écran, 
desenhando uma linha entre dois pontos. A vantagem 
desta instrução está no uso de maior número de pontos no 
écran do que o já conhecido comando DRAW. 

A cor da linha é determinada por uma “PRINT statment”, 
precedida do comando RANDOMIZE USR no caso de co- 
res temporárias, ou precedida de uma instrução TEMPS no 
caso de uma cor universal. 


— A segunda forma deste comando é idêntica ao comando 
LINE. A sua forma é LINE (x1, y1) — (x2, y2) e permite 
desenhar uma linha do ponto x1, y1, até ao ponto x2, y2. 
O efeito é o mesmo, embora menos prático, com MOVE 
x1, y1/LINE x2, y2. 


É importante que a posição inicial não seja um ponto em 
que já foi usada uma cor INK pois, nesse caso, o computa- 
dor tomaria essa linha como limite, não permitindo o colori- 
do com precisão. 

A rotina não funcionará entre 2 objectos separados (ver 
fig. 2). 


WCLS a.b.c.d — Este comando permite limpar qual- 
quer área do écran, facilitando a tarefa de usar diferentes 
parte do écran com diferentes gráficos. 

Os parâmetros “a” e “b” referem-se à coluna e às posi- 
ções da linha respectivamente do canto superior esquerdo 
da área a ser limpa. 

O parâmetro ''c” refere-se ao número de colunas a limpar 
e o parâmetro “d” indica o n.º de linhas (ver fig. 3). 


e BOX x, y — Este comando desenha um rectângulo com 
um comprimento x e uma largura y. O último posicio- A cor da área a ser limpa funciona da mesma maneira com 
namento será o do canto inferior esquerdo do rectângulo. este comando. 
Mais uma vez a cor é determinada da mesma forma que no Repare, contudo, que quando usa a instrução TEMPS, a 
comando LINE. área é limpa com: 
PAPER 8 : FLASH 8; BRIGHT 8; a 
e CIRCLE x, y — De forma diferente do comando normal | 
CIRCLE, este permite a construção de elipses e círculos. Apenas a cor INK é alterada. Pode remediar esta situação 
O centro do círculo é determinado pelo último posiciona- fazendo um PRINT vazio. P. ex.: PRINT. 
mento, sendo x O raio e y a razão altura/comprimento, que As listagens 4 e 7 exemplificam todos estes novos coman 
deve situar-se entre os limites 1 a 255, 10. dos e ajudam a compreender qualquer pormenor menos 
e PAINT — Este comando permite colorir determinada área explícito. Estas listagens só funcionam no Spectrum 48 K. 


do écran, a partir do último posicionamento, em todas as 
direcções até à linha que a delimita. 


Para o 16K terá de alterar as instruções RANDOMIZE 
USR 64624 para RANDOMIZE USR 31856. 


sf Es 
colo 
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ce. ... 
..., es . 
N 1 agente o Por “. 
ee, e 
A caça 
... 
Tr page rentetata a 


comd o EE 
NX t+ 11,1 
pe LE 
LA [4 4 


oe 4: 
tou XE 
Li te us | 
raça UI Lg 
qo O UU 
mo) 2 a [os 
e: |-- nc E .- 
e " | 1 e 
Cu ASA + já eb ed E: 
Cj Mp ae n” e fem 
RR | e CRER “2 
cego fes cede CEPA O ce ces E 
Eee giro amo aula 
co H po MTE 
CE | vt | |-- Rir 
T : auuyã:--- 
UI E HACE CL. cx cio td im, 
ist CO SUA CA CE USA. ml 
SOU TG. uu AM 
Ji 
DS RS E RS SR E SR 
e A ed O Te A CTV E CE 
nd cd | 
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32192 - 248 119 253 203 87 182 32570 














-— 37 229 197 229 205 219 
Listagem 7 32198 - 201 205 14 125 205 7 32576 — 11 225 35 13 32 247 
32204 - 35 237 67 125 92 201 32582 - 193 225 36 125 198 32 
Es ias Ad aa Fra sidai. ii 32210 - 237 75 125 92 BO 689 J2588 - 111 63 159 230 248 132 
1? RANDOMICE USR G$ozi. REM te 32216 - 205 242 125 56 6 4 32594 - 103 16 204 201 207 10 
22 RANDOMIZE USAR GdGZi. REM te Lis 0 
Ec: HOvelca,as-circtess,s 
“SA Tori EIaS as amz 
do AS pe pita O o isa ones 2 1 “Ci FSDD aIEES 
o sida do ss e À SA LET tntai=a 
Se RRNDUOMIZI USAR eGdozi + As E EA 4 Ca DS 
an DE mo sa am a “A ChRThIT HM! “4, EB; 
OQ REM movelDZa,3a-ccainí A as .eSsI2 PA Sacos 
8 PRINT INE dj pai, A ci DS 4 O e Ta ad => 
SO FRANDOMIZE UaR aodozi Ee. din Prado Eau qm+ E 
GS REM mnovess ,33-psint-movelro DE ca BAGS ih To SRA. DE B 
S4cmmsmtcsmmuoISsS 3 Tam) sm osS E SE La Ds dm EvDSE do 
À aged é ABA A ii id ia ao PRINT a; - “;PEEK a 
nd E sa 56 Saio 322 NEXT q 
2 pf | Po <a d e, —- do — ..— : 4 a Tre 
io ir total Lisos iso PA Lis e 
FiBgonH Il; BRIGHT 1, CRRU Er” > 
E E 
St 
Listagem 10 
2 CLOSE HZ: INPUT “COM IMPRES 
2[0R87 :. — E 
20 IF agili=05"0 OR agili="s 
HEM OPEM B2,"“p 
So LE! a=31858 
40 PRINT a; - 
sê FOR b=2 TO 5 
by PRINT TRAB a+bsi; PEC a + 
78 NEXT b 
a LET 3=3+5 E 
5& IF a:32582R TREM PRINT = É 
EI a ia 
PoE 
i2o CLOSE Ha 
Listagem 8 32222 - 120 254 176 S6 245 66 
32228 - 120 S 147 200 205 242 
Z1856 —- 253 203 12 126 192 42 32234 - 125 216 120 5 167 32 
31862 —- 93 92 229 42 69 92 32240 - 247 201 75 205 27 126 
31868 - 205 110 25 253 B6 13 32246 - 48 6 121 187 55 200 Autor: PAULO CRUZ 
318974 - 20 30 O 205 136 25 Z2252 - 24 3 12 32 242 75 
ZIBBO - 48 14 42 85 92 62 32258 - 121 13 167 SS 63 200 LISBOA 
T1886 - 192 166 32 11 35 35 32264 - 205 27 126 48 7 123 
31892 - 35 34 93 92 231 .254 32270 - 61 185 55 200 183 201 
31898 - 234 40 2 207 11 231 32276 — 121 13 167 32 239 183 
31904 —- 17 224 124 229 26 230 32282 - 201 197 213 205 170 34 
31910 — 127 79 223 246 32 185 32288 - 71 4 126 7 16 253 
31916 - 32 9 231 26 19 23 32294 - S6 7 121 230 7 205 7 : 
31922 - 48 240 225 24 17 26 2300 - 236 34 185 209 193 201 Envio uma listagem de um programa que possuo, algo seme-. 
31928 - 19 25 48 251 19 19 32306 — 255 126 67 205 40 45 lhante ao HEADER que consta na revista do mês de Mar 
31934 - 26 225 34 93 92 167 32312 - 253 126 68 205 40 45 : : a 
31940 - 32 221 207 11 235 94 32318 - 205 14 125 239 164 5 (pag. 14) que penso possuir algumas vantagens em relação 
31946 - 35 86 235 205 223 124 32324 - 195 2 194 2 193 2 R s 
31952 - 223 254 47 40 202 225 32330 - 192 2 160 226 227 4 aquele”. (Paulo Cruz) 
31958 - 34 93 92 217 33 88 32336 - S6 205 213 45 79 58 
s1964 —- 39 217 201 233 108 105 32342 - 125 92 129 50 123 92 
31970 - 110 229 74 125 98 111 32348 - 239 49 52 64 176 O 
31976 - 248 145 125 99 105 114 32354 - 90 5 163 4 49 56 a ci o nos à 4 
51982 - 99 108 229 50 126 112 32360 - 33 195 126 34 104 92 IL LREBR EO S ES <r es 
S1988 - 97 105 110 244 210 125 32366 - 239 32 56 33 146 92 a FOR az=B251.2 TO Sedzãi miti 
31994 - 109 111 118 229 199 125 32372 - 34 104 92 239 226 4 E Mure. LL. MNMEVT a 
32000 - 119 99 108 243 225 126 32378 - 227 4 224 15 1 56 E E CC SE O E Dadas he 14% :A 
32006 - 116 101 109 112 243 180 32384 - 33 195 126 34 104 92 SO DHNIR L/3,553,22::s55, LD, Er sa 
32012 - 125 O 205 25 125 223 32390 - 239 31 56 33 146 92 2 35,5. .281 
32018 - 254 44 40 2 207 11 32396 - 34 104 92 239 226 4 AVE L-Daadas ret CN a E = q 
32024 - 231 223 205 136 44 48 32402 - 225 15 56 33 195 126 O O imim + Do E tao tin” GE O gm: pa E 
32030 - 247 205 141 44 S6 18 32408 - 34 104 92 205 121 125 E thstui SESSBJFEEÃ = +: do. 3 
32036 - 205 59 45 223 254 13 32414 — 33 146 92 34 104 92 àS PRINT POPER & tNkK |. FLASH. 
32042 - 200 254 44 200 254 47 32420 - 239 164 162 4 15 49 é Di Cr Cards AE SS ME PESE PLOT 
352048 - 200 254 41 200 207 11 32426 - 56 205 162 45 33 104 ds mt dos LE dm Cum E do” Ro é da = 
32054 - 229 231 205 39 125 225 32432 - 1 183 237 66 48 166 a, :sa: DRA Il ,A DRA A ,idl [ 
32060 - 34 93 92 205 178 40 32438 - 239 2 224 225 56 205 - =: IRA me. Rms A 5a 
32066 - S6 4 35 195 180 51 32444 —- 7 35 237 67 125 92 ie O e seat da 
32072 - 207 1 223 254 40 32 32450 - 20100000 Syd GANDCUMIAD vor Jzoiz 
32078 - 39 231 205 14 125 205 32456 - 000000 ER LET c=PEFEK 5 
32084 - 7 35 205 229 34 223 32462 - 000000 à TE r:s% THE 
32090 - 254 41 32 22 231 254 324468 - 000000 E E a e 
32096 - 45 32 17 231 254 40 32474 - 000000 ro BEEP .O 
32102 - 32 12 231 205 14 125 32480 - O 205 14 125 223 254 SR PRINTo: 
32108 - 223 254 41 32 3 231 32486 - 44 40 2 207 11 231 
32114 - 24 5 207 11 205 14 32492 - 205 14 125 205 7 35 E sa ' 
32120 - 125 253 126 68 205 40 32498 - 197 205 7 35 209 213 Gu FO! a=b+1i 
32126 - 45 253 126 67 205 40 32504 - 197 123 167 40 89 129 asH 1: PAPER S&S 
32132 - 45 239 192 2 31 32510 - S6 B6 254 33 48 82 o e À E » 
32138 - 224 3 1 56 195 183 Z2S16 - 122 167 40 78 128 Só a 
32144 - 36 205 14 125 239 49 32522 - 75 254 23 48 71 209 1a PRINT HT & 
32150 - 160 1 56 205 183 36 32528 - 62 24 146 71 205 155 eg 
32156 - 239 1 49 160 Sé 205 52534 - 14 22 0 25 193 203 7a TA Da qd dosiaa ás 
32162 - 183 36 239 1 27 160 32540 - 32 203 32 203 32 197 Li) tsti QUE LbgEt+tiCUFl 
32168 - 1 S6 205 183 56 239 32546 - 229 54 O 229 35 235 les PORKE b.,2es5ss 
32174 —- 27 160 S6 195 183 36 32552 - 225 153 6 O 120 177 1a nr a iE 
J2180 - 253 203 2 134 205 77 32558 - 40 2 237 176 225 193 RR Da DE = dem O ecos 
32186 - 153 53 144 92 126 746 52564 - 36 124 230 7 32 25 LA PRINT HOT &.2ZA ROS TÍ 
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THEN PRINT 
RETURN 


RT 3,28, FH 31153) 


PR E | e EL 


Co A Ds o ES Ta a) E 


[er] + 


Ed E 


FR 
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Ea 
peso DAS ee ques PTP ps po ti 


am 
DEI 


MC TO e 


JT AT 3,228; “ARRAY NUMER I 








Ss 


feto fonts foca [RR 





peso feto CDE pesto put (O pis poi peão 
pro fi a Pi pes a fes 


b 


[RR 
fo 
Ei 
Ea 
gi 
[TI 
=| 
EL 

H 

TI 


CA ed CT EM po 
| 


VE TI 16 E E 





, 
e) 

Er Lad Lad ad Lad 
oddy “ess ado a BRR ma 
o. 

- 
peso cu 





TAciapt: CLUBE Z80 





Esta rotina em código máquina permite fazer a cópia de quase 235 ,227,91,250,91,22i.2r. 
todos os programas 16 ou 48 K/ Spectrum. (168 DATE 12l,32,225,2,5. 40,10. 
Introduza o programa tal como na listagem e faça RUN. Quan- sa nor O. Ros 445 
do o programa estiver pronto a ser gravado (mensagem start 128 DETÊ = à Só 225 168,9 “2- 
tape, then press any Key”), prepare uma cassete limpa e inicie ES | ; ai 
a gravação. 198 DATA 255,22), 42, 121,002,17 
298,225,237,91,121,92,175,227,82 
PARA CARREGAR O PROGRAMA: 34 DAR da O O É dd da 
LOAD “CÓPIA” CODE ou apenas LOAD ” ” CODE 2i0 DATA 250,91,62,250,205,1 ca 
Depois de carregado: S,Pel,4P,101,92/237/01,258/91,15 
q1,195,60,32 ' : o 1 
Segue-se um pequeno menu de opções: it DATA 22,1,2,6,6,22,20,8,22,5 
1 — Blocos normais (com header) 252 DATE 78,78,82,77,E5,75,532,5 
2 — Blocos sem header 7, 79,84,39,13,52,45,72,€8,505,63 
6o,32,76,565,383,25 
Á Se: POTA ana GS va 92 AB J3R 53 & 
Conforme o programa que quiser copiar, escolha uma das =" go - Ki abé 3 e E É SR O o a pu 
des. Coloque o cabo de gravação no EAR do Spectrum e “578 DATA a == 55 = 


fiy 
TR] 
[dd 
DI 
Tt 

4 

RI 
CM 
feria 

1 

J 

[ 

CM 

[e 
pi 
+ 
J 


no EAR do gravador e comece a passar o programa que quer a. 
copiar. Repare que só pode passar e gravar um bloco de cada 
vez. 

Depois de gravado, terá de novo as opções iniciais para dar 
entrada de um novo bloco, se existir. 

A opção 3 permite a passagem ao BASIC. 


SAIBA QUANDO TERMINA 
A SUA ASSINATURA 





S LET sa 
O O msposundi Quando recebe a revista do CLUBE Z80, a etiqueta com 

o seas ca. o mb i o seu endereço inclui um número antes do nome, que 

aa DES ET ER TES significa o fim da sua assinatura. 

E Si ni a E Do do Ex.: 8407 (Nome) (A assinatura deste sócio 
o A HEM PRI: =— (Endereço) termina em Julho 
45 SAVE “COPIAVCODE 23295, 235 ne rr 

Sa DATA G62,2,2es,1,22,6,22,225 . dm , 
Ba ja. 17 484 GL 550 0 Chamamos a atenção que esta informação ainda nao 

70 DATA 205,560,32,23,0,91,228 tem sido feita a todos os sócios (apenas aos mais recen- 
DZ ,2ar,2is,254d,72,25€ tes), dado que estamos agora a reestruturar os ficheiros 
. 88 BATA 1, dó, iz, IZi 2St.z dos do CLUBE Z80 e uniformizar todas as fichas de modo a 
aa BATO ar E qe A EE A que todos saibam quando termina a sua assinatura. 
Ss. 221,33. Pão, 914, Ze qr a  Frive - DM Facilita-nos o trabalho se renovar a sua assinatura an- 

iDo DATA 225,2,8,58,2398,S1,17.,1 tes de a deixar caducar. 
So ,9,205,14,12,1,12,80,137 O CLUBE Z80 agradece a sua colaboração. 
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 HANNOI 


Autor: PAULO CASTELO 


PORTO ME TÓOFRE DE HANHOI 





E 





amam =: HR Rh 


I Ê ô 


Mo ms a cc q a op e e e a a tm 
: "RIZ: HH" VERSAO 1ii SB 
o! I HBSSBER SI Paulo Castelo is 
H HEHERAIH AD o  — AHSI BASIC PLUS 
RE 
a 


so” : CLOSEMS : OPENAO,S : PUTRO, À: DIM PC3,102, PIO) 





> 
++ ": MM Ze,12,;21 
k Y 


Elos CERs TABC ET 3; "EM + FAB II 

à PUT ZZ2, 138,24. : FPRIHT “TRAHSFERE UM AHEL DA TORRE . . PARA A TORRE .B.” 

PUT ce 46,46 - GETRS , RA: IF <A<X49 OR A$512 AND A<>32 THEN 1310 

UT 15 o Bebi? TAB< 182; "DESISTE 7 8";CHRSCS)>; : GET4S, À : IF A=83 PUT À 


prio 


"O INOSO BE ONGOS 


O . JP ENE a-48 24 PUT 13.38 :- FRIHT TARCES2; "HÃO HA AHMEIS HA TORRE .";C 


( 
T 

E. 
e” 

SK. 
mr 
+ 
q 


A q >, B : IF c<BS4S Ok B>51> AND B<>32 THEN 1360 

BR 48 id TAB. 1S2; "DESISTE 7 Nº;CHR$SCS?2; :- GET&5S, A : IF A=83 PUT A 
TO 1308 

PUT 13,90 : PRINT TAB "dão PODE TROCAR COM A MESMA TORRE"; : GOT 


l418 A=A-4S b= Ed Ec É RO E a: E pede 
AE IF FC B é Bo ateh PHcAo2 AND FHCEIDA PUT Lage : FRINT TABC1S2;"HNÃO PODE P 
SE“ um AME MALOE EM Cimo DE UM Renas | 

] 

1 

I 


3 e BIT od  FCE,PHCEB 
q s=12+12H H-1] 4 t=el-E 


15& | T Ec É do PHeAo=PHÇAS-l 
at msle+l E dd ERR Pã. Fc E 4 B222; 




















CLUBE Zgs0 19 
SEU E Juros +18 ' do sm +18 EL cet, gm 4 SE : Cl To 1 Star ed d he: mi E RE e ar 

já: PUT Lê i st ep INTO bile. “COMSEGULU, PARABENS"OO PRINT CHESCR?; TABS 12; 

a PUT 22,18,25,.6 HT “QUER JOGAR QUTRA VEZ TRC CHEBUS O; 

1488 EHTa&2: 48: 27p nie BP ENT SfU5R TERRE QUIE | 

sã PUT A,P.2Z,l2,22 - END 

2HRA Pé 13)= P$CIlro=" | "hy 

seta Ec lê: ENERA "| p': 

Dem Pê. lá: E RR , 

sos Les le , pro, 34 “An? ; " 

Sado Pc ld: Pê dial É 

SAS Pê pe a & É au Pr " 

deb Pé Ee Sds " 

caro Pé 44 es [se e 

feteto bão E FOR I=i TO aIo=138-1: NHERT IL: PHC1o=15 

cega FÚR I= 

Set = 

Eai Fur: 

530 PRINT PECECIIOD; 

SEA nei 

ES PET 

aaa EM 





Autor: FERNANDO PRECES 





Sacavém 
+ | 271 POKE 23490,i: POKE 16386, 
PARTE | (continuação) aS0 LET mg=" Cólocar a cassette 
tesorvo lume | ni Di nara anan 
— BASIC Le ume introduzir 
13 REP ES "; BO SUB 7000: INPU 
A . , 
O espaço reservado ao programa em Esse de ser rigoro- ; "68 LET n s=. a peque na bar ; a pre 
samente controlado, porque a rotina em código máquina que Ras U v a base do ecr 
: = an indica queo pro ama Foi toca 
se lhe segue contem endereços absolutos que não podem ser Lizado € estaa Sea b- e 
transviados. final agro SUS 7000: RETURN 
Para esse control, deve utilizar a rotina (linhas 8999 e 902 4 
que lhe vai indicar o endereço em que termina cada linha Ric LET E=PEEK 164058: GO TD 300 
Basic do programa. Esses endereços têm de ser coincidentes 300 LET m$g=" Leitura correcta 
com os representados no quadro 3.1. d cograma ar ana CRguaS € 
Sempre que um endereço verificado não condiga com o do E: Fruacão. "E GD duo A nua: a 
quadro, terá de rever a respectiva linha, analisando bem as UT R$: LET R$="“C": RETURN 
“anstruções e os espaços, pois forçosamente cometeu algum Es” GO SUB 7030: PRINT “Erro de 
1 


erro. Os mais vulgares nestes casos dão-se nas passagens ao tura no. “;e: PRINT Ti trodu 













zir (8 para tentar de novo ara 
INVERSE VÍDEO e na volta. Se isso acontecer, leia com aten- qeenverter o que foi Lido: CND 
; máquina. “UR ou C) “;rg: RETURN 
ÃO O PARRA. 8: TERA (640 LET í=0: LET pas Qier trans 
rmar os codi inhas 
PROGRAMA EM BASIC M 2 UB 7 
Voo. INPUT ! o Le q 
1 REM CONVERSOR g=" “: 60 SUB e, IF cg=" 
2 GO SUB 4: age. USR 169 Nº TH LE = 1 
33: GO SUB 295: IF R$=" THEN G 645 BOKE 16387, i 
O TO 50 6BS0 LET iz=USR 16695 
S GO TO & À qi LET ezPEEK 16408: GO TO 700 
4 LET PRAMT =FN S (23732): DIM 
R$i1): DIM m$(128): LET J=0: LET “Soo LET m$g="CONVERSAÃO COMPLETA 
E=0: LET N=Q -Espere pelo aparecimento do co 
S GO SUB 7000: LET I=PRAMT-EN digo de erro = B Integer out of 
5123627) -800: DIM P$(1,I): LET range, = na vultima Linha e int 
J=INT (1/2561: POKE 17419, 1-256 + roduza seguido de B&B 
J: POKE 1l7/420,J: GO TO 100 MB UB 7000: GU TO 9999 
100 DEF FN s ix) =PEEK x+256+PEEK 4 GD SUB 72030: PRINT “Erro de 
ix +12) conversao no. “;e: PRINT RE tua 
191 ui FN tix) =PEEK (x+1) +256+ duZir para colocar os 
PEEK digos a” ransformados .": INPUT 
EA POKE dt g s So Sus 5010 GO TO 600 
7 T M$="Intr ir O nome d 
o“pr Cra AM É seguido 7000 PRINT AT 16,0;m$: RETURN 
de ". BO SU 2: IN PUT "010 IF PEEK 16411=0 THEN GO SUB 
Gg: L mg=" Quer transforma 7030: PRINT PN 1116388), REM... 
ambem as. variaveis | 60 TO 7012 






Go SUB 7000: LET iu 211 LET m$=CHRS$ PEEK 16388+"8": 
= ME INPUT “(S OU N) “; GO SUB 2980 
“IF r$="S" THEN LET iz128: LE "012 PRI 


= NT AT 27,0," Converter 
jui 7 EqsgaI INPUT “is 


-| — 
+ ns | 
dd dr 





a EE E SM jo POKE 1 
015 POKE 1 154 19,0: RETUR 
dão Ler ad sto SO SOB Dhoo: PRI CAMPANHA NOVOS SOCIOS 


AT 15,0: RETURN 
220 INVÉRSE USR 17230: STOP : R 
M Place ode 
999 INPUT O cEndereco inicial “;x 
9000 LET a=PEEK 
9210 IF a=13 THEN PRINT x; Fim 


9020 LET x=x+1: GO TO 9000 guir uma nova inscrição no 


CLUBE Z80 terá a oferta de 
uma CASSETE COM UM JO- 


GO, à sua escolha. 


Durante os meses de JULHO e 
AGOSTO, o sócio que conse- 


u 
5 
- 
> 
NT 
3 
E 
3 












FICHA DE CLÍNICA GERAL = 


Mais uma vez pedimos aos só- 
cios sugestões para a criação 
de uma FICHA DE CLÍNICA 
GERAL, com vista à criação 
de um programa que use o 
“Microdrive”” e que possa ser 
distribuído a todos os sócios 
que o solicitem. 





Figura 3.1 — Quadro dos endereços 


Uma vez conferido o programa, se tudo bater certo, apague as 
linhas 8999 a 9020. 
Chame a linha 8000 e rectifique-a para número 9999. 
Depois, com: 

CLEAR : SAVE “CONVERSOR” 


grave O programa. (Continua no próximo n.º) 





Dados os vários pedidos que temos recebido para compra de livros já esgotados, passamos a referir os que ainda estão disponiveis para venda e as respectivas 
quantidades. Estes livros são reproduções dos originais e foram-nos vendidos pela “Landry” aos preços que fazemos aos sócios. 





e The ZX Spectrum Explored (2 exemplares — DD ——————— 420800 
e Advanced Graphics with the ZX Spectrum 4) >>> 650800 
e Programming your ZX Spectrum (3) >>> 600800 
e 60 Games & Applications for the ZX Spectrum 4) —————————————————————————————————— 200800 
e 20 Best Programs for the ZX Spectrum (1) ————————————————>——————————————————————————— 250800 
e 40 Best Machine Code Routines for the ZX Spectrum (2) 360800 
e Master your ZX Microdrive 4) — DD ——————— 360800 . 
e The ZX Spectrum and how to get most ffomit(3) ———>—>—>—>—>—>—>—>—>—>—>———————————————— 360800 
e Exploring Spectrum Basic (3) —————>—>—>—>——————— > 500800 
e Spectrum Spectacular (5) ————>—>—>—> DD —————————— 405800 
e The Spectrum Pocket Book (4) ————>—.l DD —————————————— 405800 
e Spectrum Microdrive Book (8) ————>————— > >—>————————————m 320800 
e Spectrum Machine Code Made Easy — Vol. |(4) —————————————————————————————————— 540800 
e Spectrum Machine Code Made Easy — Vol. 1 (4) —-————————————————————————————————— 350800 
e ZX Spectrum Microdrive & Interface Manual — em Português (6) —————————————————————— 200800 
e 60 Programas for the Sinclair ZX Spectrum 4) ————————>—————————— TO0800 





VENDAS NA SEDE DO CLUBE OU À COBRANÇA 





Nota: Ao encomendar algum livro ao CLUBE Z80, prevendo que ele já tenha esgotado, refira se, nesse caso, pretende que lhe 
enviemos fotocópias. 
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JOGOS 


CÓDIGO*/PREÇO 


ALIEN SWARM (16 K) — Com 3 naves espaciais, detenha os 50 invasores que, conforme vão sendo atacados, 
mais rápidos e agressivos se tornam. (Jogo idêntico ao “Invaders”) 


CRAZY BALLOONS (16 K) — Controle um balão através de um labirinto, evitando colidir com as paredes. Quanto 


menos tempo gastar, maior será o bónus de pontuação. 
FIRE FLASH (16K) — Use um laser e mísseis para defender uma base espacial do ataque inimigo. 


ICEBERG (16 K) — Tente salvar as equipas de investigadores do Oceano Ártico, controlando um quebra-gelos. 
Transporte cada equipa até ao porto, sem colidir com os “icebergs”. 


JUNGLE TROUBLE (16 K) — Para chegar a casa, terá de atravessar um rio, de pedra em pedra, por causa do 
crocodilo. Entrando na floresta, tem de abater as árvores, prestando atenção aos macacos, e usando um machado. 
A seguir terá que transpor uma barragem de fogo, etc. 


KAMIKAZE (16 K) — Durante a sua viagem no espaço, tente destruir naves, radares ou posições inimigas. (Jogo 
idêntico ao “Ground Attack”). 


MOON ALERT (48 K) — “Space Fighter 7” é atacado por seres espaciais quando procura encontrar a sua base. 
Para além do terreno ser bastante acidentado, há também que ter em conta os disparos inimigos. 


MORRIS MEETS THE BIKERS (16 K) — Percorrendo vários cenários, ajude Morris a encontrar 10 moedas de 
ouro. 


TRANSVERSION (16 K) — O seu objectivo é percorrer toda a grelha galáctica, evitando os disparos dos guardas 
de todas as posições. No final de cada missão, haverá uma nova grelha. 


UTILITÁRIOS 


MACRO CONSTRUCTION & ANIMATION (48 K) — Com este programa e a sua imaginação, construa os seus 
próprios jogos com música e animação viva. Pode escolher entre 30 figuras, movimentá-las e pô-las a falar. 


THE QUILL (48 K) — Do género do anterior, este programa em C.M. permite-lhe fazer os seus próprios jogos de 
aventuras. Partindo de um menu, pode criar cerca de 200 localizações e preenchê-las com os objectos, problemas 
e descrições que quiser. 


OMNICALC 2 (48 K) — Programa para simulação financeira; cálculo científico ou aplicações comerciais. Existe um 

quadro que pode ter até 99 colunas e 250 linhas, podendo ser preenchido com títulos, números ou fórmulas de 

cálculo. 

O computador irá calcular a matriz formada e pode recalcular em poucos segundos toda a matriz, quando se 

alteram quaisquer dados. 

Ommnicalc 2 pode usar-se com cassete ou microdrive e pode trabalhar com interface RS 232, ou seja, permite 

saída para impressora de 80 colunas. (Microcassete) 
(Cassete) 


THE FOREST (48 K) — Simulação do desporto de orientação, para uso dos apaixonados de rallyes ou dos 
caminheiros. É ainda interessante para os que gostam de problemas de navegação e desejam treinar-se na técnica 
da orientação. Possui vistas de cortes no terreno, mapas com escala e desenhos do ambiente. É também útil para 
os professores de Geografia, particularmente na demonstração da relação entre os mapas e o meio físico. 


ABERSOFT-FORTH (48 K) — Interpretador de linguagem FORTH. 50 vezes mais rápido que o BASIC. Possui 
comandos «gráficos». 


MICRO-PROLOG (48 K) — Linguagem completamente diferente, usada nos círculos de Inteligência Artificial e 
Expert Systems. Possui vários programas explicativos e demonstrativos da potência desta linguagem. Pode «ensi- 
nar» o computador a reconhecer a descrição das «coisas» e desenhos e construir processos de aquisição de 
conhecimentos. 


“ IP — Programa em inglês e instruções em português. 


| — Programa e instruções em inglês. 
EM TODO O SOFTWARE, DESCONTO DE 20 % PARA SÓCIOS DO CLUBE 


VENDAS NA SEDE DO CLUBE OU À COBRANÇA 


IP/400$00 


IP/400$00 
IP/400$00 


IP/400$00 


IP/400$00 
IP/400$00 
IP/400$00 
IP/400$00 


IP/400$00 


1/700$00 


1/600$00 


1/2 400$00 
1/1 000$00 


1/600$00 


1/600$00 


1/1 000$00 





CLUBE Zo 





INSCRIÇÃO COMO ASSOCIADO 





O CLUBE Zso está aberto a todos os utilizadores de microcomputadores. 
A intenção de associar os entusiastas das micro-máquinas, é exclusivamente a de permitir: 


1 — PUBLICAÇÃO DE UM JORNAL MENSAL, onde sejam publicados programas de uso geral ou específico 
como no caso da educação. 


2 — PROMOVER TROCAS DE PROGRAMAS, e trocas de experiências; tanto no caso do Software (programa- 
ção), como no caso do Hardware (electrónica). 


3 — PROMOVER DESCONTOS NA AQUISIÇÃO DE PROGRAMAS. 


— 4— LANÇAR CURSOS DE PROGRAMAÇÃO EM BASIC — PASCAL OU OUTRAS LINGUAGENS E DIVULGAR 
O USO DE LINGUAGEM MÁQUINA. 


0 POENTE SS Ce st A ERR SN ae 
DADE . esse do o A AE ENE A EPP EE SR E 
CA" EVER E ee ESSE 
CD a a e 
Eid ic copa a rr aa o RNP UA 
ASSINATURA ANUAL — Esc. 1 500800 [] 
ASSINATURA SEMESTRAL — Esc. 750800 [) 
CHEQUE OU VALE DO CORREIO 
E A ESSAS IRES DR DA o SERES SS SE E DDD DNS TOS SO 
0 E E DE ND SE DN 
DATA = — 
JÁ SÓCIO o 
o O Os daN cseriereerentere coeso (inclusive) 


